home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / mac-perl / mcprl402.bin / Perl_src / t / op / readdir.t < prev    next >
MacBinary  |  1992-09-27  |  1.1 KB  |  [TEXT/MPS ]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert E-Tracker Chiptune (music/eTracker) ext Supported
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Simis (archive/simis) ext Unsupported
1% dexvert TADS (other/tads) ext Unsupported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, Sun Sep 27 18:19:45 1992, modified Sun Sep 27 18:19:45 1992, creator 'MPS ', type ASCII, 483 bytes "readdir.t" default (weak)
99% file a ./perl script executable (binary data), at 0x263 428 bytes resource default (weak)
98% file a ./perl script executable (binary data) default (weak)
97% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[MPS ]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 72 65 61 64 64 69 | 72 2e 74 00 00 00 00 00 |..readdi|r.t.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 01 e3 00 | 00 01 ac a6 eb e4 01 a6 |........|........|
|00000060| eb e4 01 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 db cb 00 00 |........|........|
|00000080| 23 21 2e 2f 70 65 72 6c | 0d 0d 65 76 61 6c 20 27 |#!./perl|..eval '|
|00000090| 6f 70 65 6e 64 69 72 28 | 4e 4f 53 55 43 48 2c 20 |opendir(|NOSUCH, |
|000000a0| 22 6e 6f 2f 73 75 63 68 | 2f 64 69 72 65 63 74 6f |"no/such|/directo|
|000000b0| 72 79 22 29 3b 27 3b 0d | 69 66 20 28 24 40 29 20 |ry");';.|if ($@) |
|000000c0| 7b 20 70 72 69 6e 74 20 | 22 31 2e 2e 30 5c 6e 22 |{ print |"1..0\n"|
|000000d0| 3b 20 65 78 69 74 3b 20 | 7d 0d 0d 70 72 69 6e 74 |; exit; |}..print|
|000000e0| 20 22 31 2e 2e 33 5c 6e | 22 3b 0d 0d 69 66 20 28 | "1..3\n|";..if (|
|000000f0| 6f 70 65 6e 64 69 72 28 | 4f 50 2c 20 22 6f 70 22 |opendir(|OP, "op"|
|00000100| 29 29 20 7b 20 70 72 69 | 6e 74 20 22 6f 6b 20 31 |)) { pri|nt "ok 1|
|00000110| 5c 6e 22 3b 20 7d 20 65 | 6c 73 65 20 7b 20 70 72 |\n"; } e|lse { pr|
|00000120| 69 6e 74 20 22 6e 6f 74 | 20 6f 6b 20 31 5c 6e 22 |int "not| ok 1\n"|
|00000130| 3b 20 7d 0d 40 44 20 3d | 20 67 72 65 70 28 2f 5e |; }.@D =| grep(/^|
|00000140| 5b 5e 5c 2e 5d 2e 2a 5c | 2e 74 24 2f 2c 20 72 65 |[^\.].*\|.t$/, re|
|00000150| 61 64 64 69 72 28 4f 50 | 29 29 3b 0d 63 6c 6f 73 |addir(OP|));.clos|
|00000160| 65 64 69 72 28 4f 50 29 | 3b 0d 0d 69 66 20 28 40 |edir(OP)|;..if (@|
|00000170| 44 20 3e 20 32 30 20 26 | 26 20 40 44 20 3c 20 31 |D > 20 &|& @D < 1|
|00000180| 30 30 29 20 7b 20 70 72 | 69 6e 74 20 22 6f 6b 20 |00) { pr|int "ok |
|00000190| 32 5c 6e 22 3b 20 7d 20 | 65 6c 73 65 20 7b 20 70 |2\n"; } |else { p|
|000001a0| 72 69 6e 74 20 22 6e 6f | 74 20 6f 6b 20 32 5c 6e |rint "no|t ok 2\n|
|000001b0| 22 3b 20 7d 0d 0d 40 52 | 20 3d 20 73 6f 72 74 20 |"; }..@R| = sort |
|000001c0| 40 44 3b 0d 40 47 20 3d | 20 3c 3a 6f 70 3a c5 2e |@D;.@G =| <:op:..|
|000001d0| 74 3e 3b 0d 77 68 69 6c | 65 20 28 40 52 20 26 26 |t>;.whil|e (@R &&|
|000001e0| 20 40 47 20 26 26 20 22 | 3a 6f 70 3a 22 2e 24 52 | @G && "|:op:".$R|
|000001f0| 5b 30 5d 20 65 71 20 24 | 47 5b 30 5d 29 20 7b 0d |[0] eq $|G[0]) {.|
|00000200| 09 73 68 69 66 74 28 40 | 52 29 3b 0d 09 73 68 69 |.shift(@|R);..shi|
|00000210| 66 74 28 40 47 29 3b 0d | 7d 0d 69 66 20 28 40 52 |ft(@G);.|}.if (@R|
|00000220| 20 3d 3d 20 30 20 26 26 | 20 40 47 20 3d 3d 20 30 | == 0 &&| @G == 0|
|00000230| 29 20 7b 20 70 72 69 6e | 74 20 22 6f 6b 20 33 5c |) { prin|t "ok 3\|
|00000240| 6e 22 3b 20 7d 20 65 6c | 73 65 20 7b 20 70 72 69 |n"; } el|se { pri|
|00000250| 6e 74 20 22 6e 6f 74 20 | 6f 6b 20 33 5c 6e 22 3b |nt "not |ok 3\n";|
|00000260| 20 7d 0d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 | }......|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000290| 00 00 57 93 0a 64 75 6d | 70 76 61 72 2e 70 6c 00 |..W..dum|pvar.pl.|
|000002a0| 02 00 00 00 54 45 58 54 | 00 00 00 00 00 00 00 00 |....TEXT|........|
|000002b0| 09 72 65 61 64 64 69 72 | 2e 74 02 00 00 00 54 45 |.readdir|.t....TE|
|000002c0| 58 54 4d 50 53 20 00 00 | 00 00 00 00 00 00 00 00 |XTMPS ..|........|
|000002d0| 00 00 54 45 58 54 4d 50 | 53 20 00 00 00 00 00 00 |..TEXTMP|S ......|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 a6 ea b4 2d 00 00 | 01 e3 00 00 01 ac 00 00 |.....-..|........|
|00000300| 00 00 00 00 00 00 13 00 | 00 00 57 93 0d 65 78 63 |........|..W..exc|
|00000310| 65 70 74 69 6f 6e 73 2e | 70 6c 02 00 00 00 54 45 |eptions.|pl....TE|
|00000320| 58 54 4d 50 53 20 00 00 | 00 00 00 00 00 00 00 00 |XTMPS ..|........|
|00000330| 57 9e 00 00 00 00 05 dc | 00 00 08 00 00 00 00 00 |W.......|........|
|00000340| 00 00 00 00 00 00 a5 8b | b3 f1 a5 8b b3 f1 00 00 |........|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000360| 00 00 00 00 34 ad 00 01 | 00 00 00 00 00 00 00 00 |....4...|........|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 27 3b 0d |...H..Mo|naco.';.|
|00000390| 69 66 20 28 24 40 29 20 | 7b 20 70 72 69 6e 74 20 |if ($@) |{ print |
|000003a0| 22 31 2e 2e 30 5c 00 06 | 00 03 00 2c 00 05 00 f8 |"1..0\..|...,....|
|000003b0| 02 7b 00 2c 00 05 00 f8 | 02 7b a6 eb ab c1 00 00 |.{.,....|.{......|
|000003c0| 01 51 00 00 01 51 00 00 | 00 6b 01 00 00 00 00 1e |.Q...Q..|.k......|
|000003d0| 00 2c 00 05 00 f8 02 7b | 00 2c 00 05 00 f8 02 7b |.,.....{|.,.....{|
|000003e0| 00 00 00 6b 00 00 00 00 | 00 00 00 00 00 00 00 00 |...k....|........|
|000003f0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 41 |.....n..|.n...>.A|
|00000400| 62 20 0f 6e 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |b .n....|.>..MPSR|
|00000410| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000420| 03 f0 ff ff 00 00 00 4c | 00 47 95 5c 00 00 00 00 |.......L|.G.\....|
|00000430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+